<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>641</cardCount>
<cardID>3045</cardID>
<listID>173871</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>on settitleput numtochar(1) before fld 2end settitleon lockitset locktext of fld 2 to trueset locktext of fld 3 to trueend lockiton unlockitset locktext of fld 2 to falseset locktext of fld 3 to falseend unlockiton newcardtype tabend newcardon closecardglobal indexscrollput the scroll of fld 1 into indexscrolllock screenend closecardon opencardglobal indexscrollset the scroll of fld 1 to indexscrollunlock screenend opencardon indexitpush cardsort by fld 2put empty into fld 1repeat with x = 1 to the number of cdsput fld 2 of cd x into line x of fld 1end repeatdomenu "compact stack"beeppop cardend indexiton importitanswer file "Pick a file to import:" of type textif it is empty then exit to hypercardput it into fnameopen file fnamerepeatread from file fname until linefeedif it is empty then exit repeatdomenu "new card"delete last char of itput it into fld 3put last line of fld 3 into fld 2delete char 1 of fld 2delete last line of fld 3end repeatclose file fnameend importit</script>
